30 IF PEEK(64435) < >6 THEN V$ = "00165103133074165104133075160004177074240015201127176008201097144004041223145074200208237160000177074170200177074134074133075177074208219096": FOR A = 768 TO 813:V = VAL( MID$ (V$,3 *(A -767),3)): POKE A,V: NEXT : CALL 768:PL = 1
40 REM <CTRL-J> Title box
50 IF PL THEN PRINT CHR$(12)"Switch to 40 column" CHR$(26)"1"